# Usage: sailing.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile army.ps 
	images {
		army {army16.bmp {trace 1 1}}
	}
	locationTypes {
		ShapePoints {number 0}
	}
	locations {
		canon {{army magenta} ShapePoints x Blue}
	}
	shapes {
		barrel {canon {line {
			1 2 } a { 5 6 10 } l { 9 4 } oval { 9 3 3 1
		}}}
		carriage {canon {line {
			8 14 } arc { 15 13 7
		}}}
		wheel {canon {circle {
			11 12
		} {arrow 4 1 4 12} {
			2 10 15 6
		} ellipse {
			9 3
		}}}
	}
	borders {
		army {shape {barrel carriage wheel} {} Border {Black .5}}
	}
	$MapDrawingScale .3
	frame {bbox {} SeaBlue OuterHalfBorder {Brown 4}}
}